home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 6-Developer Demos / Developer Demos-Gen. / Mac Yellow Pages 1.0 / card_6421.txt < prev    next >
Text File  |  1990-08-17  |  1KB  |  52 lines
  1. -- card: 6421 from stack: in.0
  2. -- bmap block id: 6772
  3. -- flags: 4000
  4. -- background id: 5634
  5. -- name: 0
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global eventTimer
  9.   put the ticks into eventTimer
  10. end openCard
  11.  
  12. on idle
  13.   global eventTimer
  14.   if the ticks > eventTimer + 60 then
  15.     repeat for 10 times
  16.       set the hilite of card button "Animation Button" to true
  17.       set the hilite of card button "Animation Button" to false
  18.     end repeat
  19.     set dragSpeed to 600
  20.     choose button tool
  21.     drag from 193,321 to 74,92
  22.     set the rect of card button "Animation Button" to 27,50,119,132
  23.     set lockScreen to true
  24.     go to next card
  25.     choose browse tool
  26.     set lockScreen to false
  27.   end if
  28. end idle
  29.  
  30. on closeCard
  31.   set the rect of card button "Animation Button" to 175,306,212,336
  32. end closeCard
  33.  
  34.  
  35.  
  36. -- part 1 (button)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=175 top=306 right=336 bottom=212
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Animation Button
  48.  
  49.  
  50. -- part contents for background part 1
  51. ----- text -----
  52. HELP